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MODULE SNDERL ( eae ae sania 
IDENT = Pirettiy : 


BEGIN 


' 
SSR Ree eeRee eee AAA REHAA THAT A AeA AAA Ke AAA eee eee 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE 
ONLY IN ACCORDANCE W THE TERMS OF 


ssssessesss 
oO: 


os 4 > > 4» 3 2s ss 


Sss 


rr MAY BE USED AND COPIED 


IE 
LICENSE AND WITH THE 
ANY R 


=) 
o 


ITH 


® 

® 

7 

® 
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ie INC T NO ® 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
' a 
it THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE + 
® 

® 
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® 

® 

® 

® 
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IT 
t® AND  SHOUL OT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


ITY FOR THE USE OR RELIABILITY OF ITS 


'* DIGITAL ASSUMES NO RESPONSIBIL 
CH IS NOT SUPPLIED BY DIGITAL. 
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!® SOFTWARE ON EQUIPMENT WHICH | 
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; FACILITY: F11ACP Structure Level 1 

3 ABSTRACT: 
$03 This routine sends a message to the error logger to inform it of a 
B28 volume mount or dismount. 

4 ENVIRONMENT : 


33 
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STARLET operating system, including privileged system services 
and internal exec routines. 
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$8 One AUTHOR: Andrew C. Goldstein, CREATION DATE: 23-Jun-1978 18:47 
30 09 MODIFIED BY: 
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v03-001 LMP0221 L. Mark Pilant, 27-Mar-1984 14:46 
phooge VBS. OuMUEC to ORBSL_OWNER and UCBS$W_VPROT to 


AO101 ACGO113 Andrew C. Goldstein, 15-Jan-1980 22:58 
Fill in volume set data in error log message 
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16-Sep-1984 01:16:43 VAX=11 Bliss-32 v4.0-742 5 
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1 
(1) 


; 1: 
3 2 2 1! 40109 aceo9o9t Andrew C. Go gs stein, 10-Oct-1978 20:03 
3 : = Previous revision history moved to FIIA.REV 
: 1 LIBRARY V SYSSLIBRARY = 18.132"; 
P4 65 5 1 REQUIRE ‘SRC$:FCPDEF.B 
| = 1087 

6 1057 1! 

+ : 23 ! This routine is called at raised IPL and must be locked into the working set. 

0 1060 1 
1061 1 LOCK_CODE; 
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\e=Sep-1986 12:30:48 DISKSVMSMASTERSCFTIX-SRCISNOERL.832;1°%° (2). 


; 3 } : GLOBAL ROUTINE SEND_ERRLOG (MODE, UCB) = 
: oes i 

; 1066 | | FUNCTIONAL DESCRIPTION: 

; i$ 1068 1} This routine sends a message to the error logger to inform it of a 
3 0 1069 1! volume mount or dismount. 
: 1 1070 1! 

: é 1994 1 i 

$ 1 ie 1 ! CALLING SEQUENCE: 

iB ors 1 i SEND_ERRLOG (ARG1, ARG2) 
: 86 1075 1 | INPUT PARAMETERS: 

; 7 1978 7% ARG1: 1 to signal mount 

3 8 1077 1! to signal dismount 
: 9 1978 : } ARG3: address of UCB 

: 91 1080 1! IMPLICIT INPUTS: 

eo ye 

> 9% 1988 1 | OUTPUT PARAMETERS: 

| @ 1988 1 i _ 

: 97 1086 i IMPLICIT OUTPUTS: 

: 99 1088 | ve 

: 1089 1 ' ROUTINE VALUE: 

ba ae 

: 1 3 1 | SIDE EFFECTS: 

3 1095 1! Message sent to error logger 
3 1094 1! 

: ie |! 

; 1 39 BEGIN 

3 1098 

5 ! 99 MAP 

; 1 

3 1 

3 1 

: 1 

3 1 

3 1 
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4 ucB : REF BBLOCK; ! UCB argument 

0 LINKAGE 

8 L_ERL_ALLOC = JSB (REGISTER = 1): 
5 4 GLOBAL (ADDRESS = 2) 
§ 0¢ NOTUSED (3, 4, 5, 6, 7, 8 9, 10, 11), 
8 0 L_ERL_RELEASE = JSB (REGISTER = 2) : 
. 4 NOTUSED (3, 4, 5, 6, 7, 8 9, 10, 11); 
1 10 LOCAL 
§ 11 : REF BBLOCK, ! local address of ORB 
\ MSG_BUFFER : REF BBLOCK; ! other buffer pointer to dodge MOVC 
5 14 EXTERNAL ROUTINE 
$ 1? ERLSALLOCEMB : LLERL_ALLOC ADDRESSING MODE (GENERAL) 
3 13 
4 18 


' allocate error Log buffer 
ERLSRELEASEMB : L_LERL_RELEASE aes peg ro (GENERAL); 


! release error log buffer 
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} | Mttecate an errror log buffer. If this fails, forget it. | 
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DRESS = 2: REF BBLOCK; ! pointer to error log buffer 

IF NOT ERLSA LOCEMB (EMBSK_VM_LENGTH) | 
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hy RETURN 
G BUFFER = ‘ADDRESS; 


Now fill in the message buffer. 


«MODE 
THEN MSG_ 
ELSE MSG 


EMBSW_VM_ENTRY] = EMBSK_VM 


EMBSW_VM_ENTRY EMBSK_VD; ! Log entry type 


.ORBCORBSL_OWNER]: 
“Va -UCBLUCBSW-ERRCNTI; 
MBSL ~VM~OPRCNT J “UCBCUCBS$L~OPCNTI; 
MBSW~VM~UNIT) -UCBLUCBSW~ ONE: 


MSG “BUF ats VM_VOLNUM) = 0; 
MSG_BUF FERCEMBSW_VM_NUMSET J = 0; 


CHSMOVE (. C(08t OC C .UCBCUCBSL ee pogest NAME])<0,8> + 1, 
BBLOCK urea UCBSL_DBB), _NAME), 
MSG OcurFER EMBSB_VA NAALNG Byes 


-BBLOCKCUCBCUCBSL_DEVCHAR] ,DEV$V_FOR) 
n AOt -BBLOCKCUCBCUTBSL_DEVCHAR) , DEV$v_SaD) 
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vcB : REF BBLOCK, ! address of volume control block 
RVT : REF BBLOCK; ! address of relative volume table 


vcB syoacuces. vcB); 
Hea VCB$W_RVA) NEQ 0 


L_RVTI; 
su VM -VOLNUM] = .VCBCVCB$W_RVN); 
-RVTCRVT$B-NVOLS); 
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CHSMOVE™ fyCes 
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BBLOCK 


vcB 
EMB 
EMBSW_VM_NUMSET 
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MSG _BUF CEB 
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MVL 

MVL_ENTRY 

RUN; 

RVT 

UCBLIST 
VCB = 


-UCBEUCBSL vce); 

RVT = VCBSL 

UCBLIST = RVT RYTSL test); 
vce vCB 


IF ;ucatistc. .1] EQL .UCB THEN EXITLOOP; 
MVL_ENTRY = .MVL + MVLSK_FIXLEN; 
INC | FROM 0 TO .MVL MVC$B_NVOLS) -1 DO 


N 

IF .MVL_ENTRYCMVLS$B_RVNJ EQL .RUN 

+ -MVC_ENTRYCMVL$S9_MOUNTED] 
BEGIN 
MSG_BUFFERCEMBSW_VM_VOLNUM 


VOLRAME ,MSG_BUFF 
EXITL YOOP: 


END: 
MVL_ENTRY = 
END? 


-MVL_LENTRY + MVLSK_LENGTH; 
END; 
Finally release the buffer and make the entry. 


ERLSRELEASEMB (.MSG_BUFFER); 
RETURN 1; 
END; 
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! end of routine 
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relative volume 
address of UCB List 
volume control block 


AVL = _/ ’ 
MSG BUFFER EMBSU VM gNUMSET J = .MVLCMVL$B_NVOLS); 
CHSFILL( -¥CBSS VOLNAME MSG BUF FERLEMBS mest “Wh “ LABEL); 
ine CR I alc Rom TO “RVICRVTSB _NVOLS) = 
RUN = .1; 


Js J #13 
wee ls VOCLBC ,MVL_ENTRYCMVL$T VOLLBL),' 
VCBS ERCEMBST_VA_LABELJ); 
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; Routine Size: 265 bytes, Routine 


8 1217 1 
9 1216 1 END 
0 1219 0 ELUDOM 
Name Bytes 
SLOCKEDC1$ 2 
Library 
File 
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0 000000006 BY 06 


Base: S$LOCKEDC1$ + 0000 


PSECT SUMMARY 
Attributes 
65 NOVEC,NOWRT, RD, EXE,NOSHR, 


Statistics 
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Sym s 
Total Loaded Percent 
18619 54 0 


COMMAND QUALIFIERS 


VAX-11 Bliss-32 V4,0-74 
DISKSVMSMASTER:CF11X.SR 
BRB 13$ 
ADD #8, WL NTRY 
MOV MSG_BUFFER, R2 
JS ERLSRELEASEMB 
4$ MOVL 
RET 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 
1000 00:02.0 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:SNDERL/OBJ=OBJ$:SNDERL MSRC$:SNDERL/UPDATE=(ENH$: SNDERL) 


Size: 265 sods + 0 data bytes 
fy Time: 712. 
FL epeed Time: 56 . 

Lines/CPU Min: 795 


Lexenes/CPU-nin: 245396 
ry Used: 178 pages 
— ation Complete 
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